home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / comms / p202.zip / ck_p.ini next >
Text File  |  1994-08-20  |  5KB  |  90 lines
  1. echo Initializing support for P external file transfer protocols...
  2.  
  3. ; Send via Zmodem 
  4. define sz, -
  5.   if equal "\v(connection)" "serial" goto async, -
  6.   if equal "\v(connection)" "named_pipe" goto pipe, -
  7.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  8.   echo "sz not supported on \v(connection) connections.",-
  9.   end, -
  10.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -mileage -commbufs 4096 -protocol zmodem -send \%1, end, -
  11.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -mileage -commbufs 8192 -filebuf 32768 -protocol zmodem -send \%1, end, -
  12.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -mileage -commbufs 8192 -filebuf 32768 -protocol zmodem -send \%1, end
  13.  
  14. ; Receive via Zmodem
  15. define rz, -
  16.   if equal "\v(connection)" "serial" goto async, -
  17.   if equal "\v(connection)" "named_pipe" goto pipe, -
  18.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  19.   echo "rz not supported on \v(connection) connections.",-
  20.   end, -
  21.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -mileage -commbufs 4096 -protocol zmodem -receive, end, -
  22.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -mileage -commbufs 8192 -filebuf 32768 -protocol zmodem -receive, end, -
  23.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -mileage -commbufs 8192 -filebuf 32768 -protocol zmodem -receive, end
  24.  
  25. ; Send via Ymodem-g
  26. define sg, - 
  27.   if equal "\v(connection)" "serial" goto async, -
  28.   if equal "\v(connection)" "named_pipe" goto pipe, -
  29.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  30.   echo "sg not supported on \v(connection) connections.",-
  31.   end, -
  32.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -mileage -commbufs 4096 -protocol ymodem-g -kilo -send \%1, end, -
  33.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -mileage -commbufs 8192 -filebuf 32768 -protocol ymodem-g -kilo -send \%1, end, -
  34.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -mileage -commbufs 8192 -filebuf 32768 -protocol ymodem-g -kilo -send \%1, end
  35.  
  36. ; Receive via Ymodem-g
  37. define rg, -
  38.   if equal "\v(connection)" "serial" goto async, -
  39.   if equal "\v(connection)" "named_pipe" goto pipe, -
  40.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  41.   echo "rg not supported on \v(connection) connections.",-
  42.   end, -
  43.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -mileage -commbufs 4096 -protocol ymodem-g -receive, end, -
  44.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -mileage -commbufs 8192 -filebuf 32768 -protocol ymodem-g -receive, end, -
  45.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -mileage -commbufs 8192 -filebuf 32768 -protocol ymodem-g -receive, end
  46.  
  47. ; Send via Ymodem
  48. define sy, - 
  49.   if equal "\v(connection)" "serial" goto async, -
  50.   if equal "\v(connection)" "named_pipe" goto pipe, -
  51.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  52.   echo "sy not supported on \v(connection) connections.",-
  53.   end, -
  54.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -mileage -protocol ymodem -kilo -send \%1, end, -
  55.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -mileage -filebuf 32768 -protocol ymodem -kilo -send \%1, end, -
  56.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -mileage -filebuf 32768 -protocol ymodem -kilo -send \%1, end
  57.  
  58. ; Receive via Ymodem
  59. define ry, -
  60.   if equal "\v(connection)" "serial" goto async, -
  61.   if equal "\v(connection)" "named_pipe" goto pipe, -
  62.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  63.   echo "ry not supported on \v(connection) connections.",-
  64.   end, -
  65.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -mileage -protocol ymodem -receive, end, -
  66.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -mileage -filebuf 32768 -protocol ymodem -receive, end, -
  67.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -mileage -filebuf 32768 -protocol ymodem -receive, end
  68.  
  69. ; Send via Xmodem
  70. define sx, -
  71.   if equal "\v(connection)" "serial" goto async, -
  72.   if equal "\v(connection)" "named_pipe" goto pipe, -
  73.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  74.   echo "sx not supported on \v(connection) connections.",-
  75.   end, -
  76.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -protocol xmodem -kilo -send \%1, end, -
  77.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -filebuf 32768 -protocol xmodem -kilo -send \%1, end, -
  78.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -filebuf 32768 -protocol xmodem -kilo -send \%1, end
  79.  
  80. ; Receive via Xmodem
  81. define rx, -
  82.   if equal "\v(connection)" "serial" goto async, -
  83.   if equal "\v(connection)" "named_pipe" goto pipe, -
  84.   if equal "\v(connection)" "tcp/ip_telnet" goto socket, -
  85.   echo "rx not supported on \v(connection) connections.",-
  86.   end, -
  87.   :async,  !p.exe -type async -device \v(line) -handle \v(ttyfd) -speed \v(speed) -protocol xmodem -receive \%1, end, -
  88.   :pipe,   !p.exe -type pipe -device \v(line) -handle \v(ttyfd) -filebuf 32768 -protocol xmodem -receive \%1, end, -
  89.   :socket, !p.exe -type socket -handle \v(ttyfd) -telnet -filebuf 32768 -protocol xmodem -receive \%1, end
  90.